D[Sin[x^(Ln[x])]]